Tip of the moment is: Búa til fyrirspurn með kóða
'Stefjan skrifar gögnin í fyrirspurn
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb()
Set qdf = db.CreateQueryDef("qryTest")
'Fyrirspurnin qryTest búin til
qdf.SQL = "SELECT * FROM tblTest"
'Birta fyrirspurnina qryTest
DoCmd.OpenQuery "qryTest"
'Eyða fyrirspurninni qryTest
db.QueryDefs.Delete "qryTest"
'Laga til
Set qdf = Nothing
Set db = Nothing